/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Publish / A / Alpha.5.76.sit / Alpha.5.76 folder / Tcl / SystemCode / grep.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 67 72 65 70 2e 74 | 63 6c 00 00 00 00 00 00 |..grep.t|cl......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 05 b0 00 | 00 01 7e a9 a6 2a 35 a9 |........|..~..*5.|
|00000060| a6 2a 35 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.*5.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bb 4d 00 00 |........|.....M..|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 0d 23 20 27 67 72 65 | 70 6c 69 73 74 27 20 61 |=.# 'gre|plist' a|
|000000e0| 6e 64 20 27 67 72 65 70 | 66 73 65 74 27 20 61 72 |nd 'grep|fset' ar|
|000000f0| 65 20 75 73 65 64 20 66 | 6f 72 20 62 61 74 63 68 |e used f|or batch|
|00000100| 20 73 65 61 72 63 68 69 | 6e 67 20 66 72 6f 6d 20 | searchi|ng from |
|00000110| 74 68 65 20 22 66 69 6e | 64 22 20 64 69 61 6c 6f |the "fin|d" dialo|
|00000120| 67 2e 0d 23 20 20 48 65 | 6e 63 65 2c 20 79 6f 75 |g..#  He|nce, you|
|00000130| 20 72 65 61 6c 6c 79 20 | 73 68 6f 75 6c 64 6e 27 | really |shouldn'|
|00000140| 74 20 6d 65 73 73 20 77 | 69 74 68 20 74 68 65 6d |t mess w|ith them|
|00000150| 20 75 6e 6c 65 73 73 20 | 79 6f 75 20 6b 6e 6f 77 | unless |you know|
|00000160| 20 77 68 61 74 20 79 6f | 75 20 61 72 65 20 64 6f | what yo|u are do|
|00000170| 69 6e 67 2e 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ing..#==|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001c0| 3d 3d 3d 3d 3d 3d 0d 70 | 72 6f 63 20 67 72 65 70 |======.p|roc grep|
|000001d0| 6c 69 73 74 20 7b 61 72 | 67 73 7d 20 7b 0d 09 73 |list {ar|gs} {..s|
|000001e0| 65 74 20 6e 75 6d 20 5b | 65 78 70 72 20 5b 6c 6c |et num [|expr [ll|
|000001f0| 65 6e 67 74 68 20 24 61 | 72 67 73 5d 20 2d 20 32 |ength $a|rgs] - 2|
|00000200| 5d 0d 09 73 65 74 20 65 | 78 70 20 5b 6c 69 6e 64 |]..set e|xp [lind|
|00000210| 65 78 20 24 61 72 67 73 | 20 24 6e 75 6d 5d 0d 09 |ex $args| $num]..|
|00000220| 73 65 74 20 61 72 67 6c | 69 73 74 20 5b 6c 69 6e |set argl|ist [lin|
|00000230| 64 65 78 20 24 61 72 67 | 73 20 5b 65 78 70 72 20 |dex $arg|s [expr |
|00000240| 24 6e 75 6d 20 2b 20 31 | 5d 5d 0d 09 0d 09 73 65 |$num + 1|]]....se|
|00000250| 74 20 6f 77 69 6e 20 30 | 0d 09 73 65 74 20 63 69 |t owin 0|..set ci|
|00000260| 64 20 5b 73 63 61 6e 63 | 6f 6e 74 65 78 74 20 63 |d [scanc|ontext c|
|00000270| 72 65 61 74 65 5d 0d 0d | 09 73 65 74 20 63 6d 64 |reate]..|.set cmd|
|00000280| 20 5b 6c 72 61 6e 67 65 | 20 24 61 72 67 73 20 30 | [lrange| $args 0|
|00000290| 20 5b 65 78 70 72 20 24 | 6e 75 6d 20 2d 20 31 5d | [expr $|num - 1]|
|000002a0| 5d 0d 09 65 76 61 6c 20 | 73 63 61 6e 6d 61 74 63 |]..eval |scanmatc|
|000002b0| 68 20 24 63 6d 64 20 7b | 24 63 69 64 20 24 65 78 |h $cmd {|$cid $ex|
|000002c0| 70 20 7b 0d 09 09 09 69 | 66 20 28 21 24 6f 77 69 |p {....i|f (!$owi|
|000002d0| 6e 29 20 7b 0d 09 09 09 | 09 73 65 74 20 6f 77 69 |n) {....|.set owi|
|000002e0| 6e 20 31 0d 09 09 09 09 | 6e 65 77 0d 09 09 09 09 |n 1.....|new.....|
|000002f0| 73 65 74 20 77 20 5b 6c | 69 6e 64 65 78 20 5b 77 |set w [l|index [w|
|00000300| 69 6e 4e 61 6d 65 73 20 | 2d 66 5d 20 30 5d 0d 09 |inNames |-f] 0]..|
|00000310| 09 09 7d 0d 09 09 09 69 | 6e 73 65 72 74 54 65 78 |..}....i|nsertTex|
|00000320| 74 20 2d 77 20 24 77 20 | 22 46 69 6c 65 20 5c 22 |t -w $w |"File \"|
|00000330| 5b 66 69 6c 65 20 74 61 | 69 6c 20 24 66 5d 5c 22 |[file ta|il $f]\"|
|00000340| 3b 20 4c 69 6e 65 20 24 | 6d 61 74 63 68 49 6e 66 |; Line $|matchInf|
|00000350| 6f 28 6c 69 6e 65 6e 75 | 6d 29 3a 20 24 6d 61 74 |o(linenu|m): $mat|
|00000360| 63 68 49 6e 66 6f 28 6c | 69 6e 65 29 5c 72 22 7d |chInfo(l|ine)\r"}|
|00000370| 0d 09 7d 0d 0d 09 66 6f | 72 65 61 63 68 20 66 20 |..}...fo|reach f |
|00000380| 24 61 72 67 6c 69 73 74 | 20 7b 0d 09 09 73 65 74 |$arglist| {...set|
|00000390| 20 66 69 64 20 5b 6f 70 | 65 6e 20 24 66 5d 0d 09 | fid [op|en $f]..|
|000003a0| 09 73 63 61 6e 66 69 6c | 65 20 24 63 69 64 20 24 |.scanfil|e $cid $|
|000003b0| 66 69 64 0d 09 09 63 6c | 6f 73 65 20 24 66 69 64 |fid...cl|ose $fid|
|000003c0| 0d 09 7d 0d 09 73 63 61 | 6e 63 6f 6e 74 65 78 74 |..}..sca|ncontext|
|000003d0| 20 64 65 6c 65 74 65 20 | 24 63 69 64 0d 7d 0d 0d | delete |$cid.}..|
|000003e0| 70 72 6f 63 20 67 72 65 | 70 66 73 65 74 20 7b 61 |proc gre|pfset {a|
|000003f0| 72 67 73 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 66 |rgs} {..|global f|
|00000400| 69 6c 65 53 65 74 73 0d | 0d 09 73 65 74 20 6e 75 |ileSets.|..set nu|
|00000410| 6d 20 5b 65 78 70 72 20 | 5b 6c 6c 65 6e 67 74 68 |m [expr |[llength|
|00000420| 20 24 61 72 67 73 5d 20 | 2d 20 32 5d 0d 09 73 65 | $args] |- 2]..se|
|00000430| 74 20 65 78 70 20 5b 6c | 69 6e 64 65 78 20 24 61 |t exp [l|index $a|
|00000440| 72 67 73 20 24 6e 75 6d | 5d 0d 09 73 65 74 20 66 |rgs $num|]..set f|
|00000450| 73 65 74 20 5b 6c 69 6e | 64 65 78 20 24 61 72 67 |set [lin|dex $arg|
|00000460| 73 20 5b 65 78 70 72 20 | 24 6e 75 6d 20 2b 20 31 |s [expr |$num + 1|
|00000470| 5d 5d 0d 09 65 76 61 6c | 20 67 72 65 70 6c 69 73 |]]..eval| greplis|
|00000480| 74 20 5b 6c 72 61 6e 67 | 65 20 24 61 72 67 73 20 |t [lrang|e $args |
|00000490| 30 20 5b 65 78 70 72 20 | 24 6e 75 6d 2d 31 5d 5d |0 [expr |$num-1]]|
|000004a0| 20 7b 24 65 78 70 20 24 | 66 69 6c 65 53 65 74 73 | {$exp $|fileSets|
|000004b0| 28 24 66 73 65 74 29 7d | 0d 7d 0d 0d 70 72 6f 63 |($fset)}|.}..proc|
|000004c0| 20 67 72 65 70 20 7b 65 | 78 70 20 61 72 67 73 7d | grep {e|xp args}|
|000004d0| 20 7b 0d 09 73 65 74 20 | 66 69 6c 65 73 20 7b 7d | {..set |files {}|
|000004e0| 0d 09 66 6f 72 65 61 63 | 68 20 61 72 67 20 24 61 |..foreac|h arg $a|
|000004f0| 72 67 73 20 7b 0d 09 09 | 61 70 70 65 6e 64 20 66 |rgs {...|append f|
|00000500| 69 6c 65 73 20 22 20 22 | 20 5b 67 6c 6f 62 20 2d |iles " "| [glob -|
|00000510| 74 20 54 45 58 54 20 24 | 61 72 67 5d 0d 09 7d 0d |t TEXT $|arg]..}.|
|00000520| 09 73 65 74 20 63 69 64 | 20 5b 73 63 61 6e 63 6f |.set cid| [scanco|
|00000530| 6e 74 65 78 74 20 63 72 | 65 61 74 65 5d 0d 09 73 |ntext cr|eate]..s|
|00000540| 63 61 6e 6d 61 74 63 68 | 20 24 63 69 64 20 24 65 |canmatch| $cid $e|
|00000550| 78 70 20 7b 61 70 70 65 | 6e 64 20 6c 69 6e 65 73 |xp {appe|nd lines|
|00000560| 20 22 46 69 6c 65 20 5c | 22 5b 66 69 6c 65 20 74 | "File \|"[file t|
|00000570| 61 69 6c 20 24 66 5d 5c | 22 3b 20 4c 69 6e 65 20 |ail $f]\|"; Line |
|00000580| 24 6d 61 74 63 68 49 6e | 66 6f 28 6c 69 6e 65 6e |$matchIn|fo(linen|
|00000590| 75 6d 29 3a 20 24 6d 61 | 74 63 68 49 6e 66 6f 28 |um): $ma|tchInfo(|
|000005a0| 6c 69 6e 65 29 5c 72 22 | 7d 0d 09 73 65 74 20 6c |line)\r"|}..set l|
|000005b0| 69 6e 65 73 20 22 22 0d | 0d 09 66 6f 72 65 61 63 |ines "".|..foreac|
|000005c0| 68 20 66 20 24 66 69 6c | 65 73 20 7b 0d 09 09 73 |h f $fil|es {...s|
|000005d0| 65 74 20 66 69 64 20 5b | 6f 70 65 6e 20 24 66 5d |et fid [|open $f]|
|000005e0| 0d 09 09 73 63 61 6e 66 | 69 6c 65 20 24 63 69 64 |...scanf|ile $cid|
|000005f0| 20 24 66 69 64 0d 09 09 | 63 6c 6f 73 65 20 24 66 | $fid...|close $f|
|00000600| 69 64 0d 09 7d 0d 09 73 | 63 61 6e 63 6f 6e 74 65 |id..}..s|canconte|
|00000610| 78 74 20 64 65 6c 65 74 | 65 20 24 63 69 64 0d 09 |xt delet|e $cid..|
|00000620| 72 65 74 75 72 6e 20 24 | 6c 69 6e 65 73 0d 7d 0d |return $|lines.}.|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000690| 34 4d 61 6e 75 61 6c 52 | 45 41 44 4d 45 2e 54 58 |4ManualR|EADME.TX|
|000006a0| 54 11 32 2e 35 20 52 65 | 6c 65 61 73 65 20 4e 6f |T.2.5 Re|lease No|
|000006b0| 08 67 72 65 70 2e 74 63 | 6c 00 02 00 00 00 50 61 |.grep.tc|l.....Pa|
|000006c0| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|000006d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 a9 b0 91 9f 00 00 | 00 00 00 00 01 7e 65 74 |........|.....~et|
|00000700| 65 73 74 72 75 6e 2e 74 | 63 6c 05 41 6c 70 68 61 |estrun.t|cl.Alpha|
|00000710| 0a 41 6c 70 68 61 20 35 | 2e 36 35 0a 41 6c 70 68 |.Alpha 5|.65.Alph|
|00000720| 61 20 35 2e 36 36 0e 41 | 6c 70 68 61 20 43 6f 6d |a 5.66.A|lpha Com|
|00000730| 6d 61 6e 64 73 07 41 6c | 70 68 61 2e 68 09 41 6c |mands.Al|pha.h.Al|
|00000740| 70 68 61 2e 6d 61 70 09 | 61 6c 70 68 61 2e 6f 75 |pha.map.|alpha.ou|
|00000750| 74 0a 41 6c 70 68 61 2e | 72 73 72 63 0d 41 6c 70 |t.Alpha.|rsrc.Alp|
|00000760| 68 61 42 69 74 73 2e 74 | 63 6c 0a 41 70 70 65 6e |haBits.t|cl.Appen|
|00000770| 64 69 78 20 41 0a 41 70 | 70 65 6e 64 69 78 20 42 |dix A.Ap|pendix B|
|00000780| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 a2 |...H..Mo|naco....|
|00000790| 36 ac 00 00 00 00 00 b1 | 47 7e 00 02 f7 6c 00 a8 |6.......|G~...l..|
|000007a0| 00 ab 13 c8 00 00 00 04 | 00 04 01 0c 00 03 01 da |........|........|
|000007b0| 02 79 01 0c 00 03 01 da | 02 79 00 00 34 04 00 00 |.y......|.y..4...|
|000007c0| 01 47 00 00 01 47 00 00 | 00 00 01 00 00 00 01 00 |.G...G..|........|
|000007d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 a2 36 ac |...L...L|...2..6.|
|000007e0| 08 d2 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000007f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 a8 4b 74 00 00 |........|....Kt..|
+--------+-------------------------+-------------------------+--------+--------+